home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ing / restore / main.bas < prev    next >
BASIC Source File  |  1996-01-08  |  1KB  |  28 lines
  1. Attribute VB_Name = "MainModule"
  2. #If Win16 Then
  3.     Declare Function WritePrivateProfileString Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$) As Integer
  4.     Declare Function GetPrivateProfileString Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Integer, ByVal FileName$) As Integer
  5. #Else
  6.     Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$) As Long
  7.     Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Long, ByVal FileName$) As Long
  8. #End If
  9.  
  10.  
  11. Sub Main()
  12. Dim ReturnString As String
  13. '--- Check to see if we are in the VB.INI File.  If not, Add ourselves to the INI file
  14.     #If Win16 Then
  15.         Section$ = "Add-Ins16"
  16.     #Else
  17.         Section$ = "Add-Ins32"
  18.     #End If
  19.     
  20.     'Check to see if the Restore.Connector entry is already in the VB.INI file.  Add if not.
  21.     ReturnString = String$(255, Chr$(0))
  22.     GetPrivateProfileString Section$, "Restore.Connector", "", ReturnString, Len(ReturnString) + 1, "VB.INI"
  23.     If Left(ReturnString, InStr(ReturnString, Chr(0)) - 1) = "" Then
  24.         WritePrivateProfileString Section$, "Restore.Connector", "0", "VB.INI"
  25.     End If
  26. End Sub
  27.  
  28.